& 



#2. 

fir 



PATENT 
Customer No. 22,852 
Attorney Docket No. 8187.0001 



'in the united states patent and trademark office 



In re Application of: 
Yoshio MAEDA et al. 
Serial No.: 09/774,611 
Filed: February 1, 2001 

For METHOD FOR GENERATING AND j 
CHANGING A PARAMETRIC ) 
GRAPHIC DESIGN, APPLICATION 
PROGRAMMING INTERFACE 
AND CAD SYSTEM 

Assistant Commissioner for Patents 
Washington, DC 20231 



) Group Art Unit: 2123 

) Examiner: Unassigned 

) 
) 
) 



m aim FOR PRIORITY 



Sir: 



Under the provisions of Section 119 of 35 U.S.C., Applicants hereby claim the 
benefit of the ,ing date of Japanese Patent Application Number 2000-09601 1 , filed 
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in support of Applicants' claim for priority, a certified copy of the priority 
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Function SampleAddConstrainO 
Dim aCircle As Object 
Dim aDimRadius As Object 
Dim PntCnt(9 As Double 
Dim PntCrd(2)As Double 

PntCnt(0) = 4 
PntCnt(l) = 0 
PntCnt(2) = 0 

PntCrd(0) = PntCnt(0) + 0. 1 
PntCrd(l) = PntCnt(l) 
PntCrd(2) = PntCnt(2) 

Set aCixcle - tiieModelSpace.AddCircle(PntCnt, 0.1) 

Set aDimRadius = th eModelS p ac e AddD lmRadialfP ntC n U PntCrd 1) 

PcnAddValCnstl aDimRadius. handle. 10, 1, 1. 0.1. 'A'. 0 

FcnAddCnst2 aC ire le. handle, aDimRadius. handle. 20, 5, 6 

PcnAddCnst2 aCirele. handle, aDimRadius. handle, 26, 1, 1 

'£3&A Zi&M 
PcnAddCnstVar 'A', 'OB" 

End Function 
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DLL ^feifz insert V^7jV 

Private Function Insert(£leName As String, paramStr As String) 
Dim insType As Long 
Dim optionSw As Long 
Dim insFntX As Double 
Dim insPntYAs Double 
Dim insPntZ As Double 
Dim insScale As Double 
Dim in&Angle As Double 
Dim ret As Long 

insPntX = 1002 
insPntY = 100* 
insPntZ = 0# 

insTjpe = INS TYPE ^EXPLODE 
insScale — 1# 
insAngle — 30# 

optionSw= OPTION_CURRENT_LAYER 

ret = PgflnsertParts(nleNani«, insPntX, insPntY, insPntZ insType. 
ins Scale. insAngle. optionSw. paramStr) 
End Function 

Private Function InsertPart(paramStr As String) 

Insert "sample¥DLL¥Insert£sBrnple.dwg , J paramStr 
End Function 

SubVALO 

InsertPar t 'VAL:WIDTH=60. HE IGHT=30, LENGTH=1S* 
End Sub 

SubEXCELO 

Inse rtP ar t 'EXCEL; s ample¥D LL_Inser tSB ook 1. ils.s hee tl,S 1" 
End Sub 
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